diag_to_csr Function

public function diag_to_csr(a, err) result(rst)

Converts a diagonal matrix to a CSR matrix.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in),		dimension(:)	::	a	The diagonal matrix to convert.
class(errors),	intent(inout),	optional,	target	::	err	The error object to be updated.

Return Value type(csr_matrix)

The CSR matrix.